`initialize` <-
function() {
	setwd("~//projekty//lisiecki//mow")
	if(! "rpart" %in% row.names(installed.packages()))
		install.packages("rpart")
	library(rpart)
}

